home *** CD-ROM | disk | FTP | other *** search
/ Champak Vol C-14 / Vol C-14.iso / games / oida_pon.swf / scripts / frame_2 / DoAction_2.as next >
Text File  |  2012-04-23  |  2KB  |  94 lines
  1. setProperty("/ball1", _X, getProperty("/ball1", _X) + eval("/ball1:vel") * Math.sin(eval("/ball1:theta")));
  2. setProperty("/ball1", _Y, getProperty("/ball1", _Y) + eval("/ball1:vel") * (- Math.cos(eval("/ball1:theta"))));
  3. ab = getProperty("/ball1", _X) - 200;
  4. bb = - (getProperty("/ball1", _Y) - 200);
  5. neu = Math.atan(ab / bb);
  6. if(eval("/ball1:theta") == 0 or eval("/ball1:theta") == 2 * math.pi)
  7. {
  8.    neu = math.pi;
  9. }
  10. abl = ab * ab;
  11. bbl = bb * bb;
  12. ro = abl + bbl;
  13. if(bb < 0 and 0 < ab)
  14. {
  15.    neu = math.pi - neu;
  16. }
  17. if(bb < 0 and ab < 0)
  18. {
  19.    neu = math.pi + neu;
  20. }
  21. if(bb < 0 and 0 < ab)
  22. {
  23.    neu = 2 * math.pi - neu;
  24. }
  25. m = 1;
  26. while(m < 10)
  27. {
  28.    if(theta >= 2 * math.pi)
  29.    {
  30.       tbar = theta - 2 * math.pi;
  31.    }
  32.    if(theta < 0)
  33.    {
  34.       theta += 2 * math.pi;
  35.    }
  36.    m++;
  37. }
  38. tbar = math.pi - theta;
  39. m = 1;
  40. while(m < 10)
  41. {
  42.    if(tbar >= 2 * math.pi)
  43.    {
  44.       tbar -= 2 * math.pi;
  45.    }
  46.    if(tbar < 0)
  47.    {
  48.       tbar += 2 * math.pi;
  49.    }
  50.    m++;
  51. }
  52. m = 1;
  53. while(m < 10)
  54. {
  55.    if(2 * math.pi < neu)
  56.    {
  57.       neu -= 2 * math.pi;
  58.    }
  59.    if(neu < 0)
  60.    {
  61.       neu += 2 * math.pi;
  62.    }
  63.    m++;
  64. }
  65. if(33400 < Math.abs(ro) and ro < (183 + eval("/ball1:vel")) * (183 + eval("/ball1:vel")) and Math.abs(phi - neu) < 0.18)
  66. {
  67.    set("/ball1:theta",math.pi + 2 * neu - eval("/ball1:theta"));
  68.    set("/ball1:theta",eval("/ball1:theta") + (neu - phi) / curve);
  69.    set("/ball1:vel",eval("/ball1:vel") + velo);
  70.    dis = 1;
  71. }
  72. if(33400 < Math.abs(ro) and ro < 34500 and 2 * math.pi - 0.09 < phi + neu and phi + neu < 2 * math.pi + 0.09 and dis != 1 and (6.1 < neu or neu < 0.2))
  73. {
  74.    set("/ball1:theta",math.pi + 2 * neu - eval("/ball1:theta"));
  75.    set("/ball1:vel",eval("/ball1:vel") + velo);
  76. }
  77. dis = 0;
  78. if(5 >= getProperty("/ball1", _Y))
  79. {
  80.    gotoAndStop(4);
  81. }
  82. if(getProperty("/ball1", _Y) >= 395)
  83. {
  84.    gotoAndStop(4);
  85. }
  86. if(getProperty("/ball1", _X) >= 395)
  87. {
  88.    gotoAndStop(4);
  89. }
  90. if(5 >= getProperty("/ball1", _X))
  91. {
  92.    gotoAndStop(4);
  93. }
  94.